home *** CD-ROM | disk | FTP | other *** search
- .key Device/A,Opt
- .bra {
- .ket }
-
- ;$VER: Full device remover
- ;Original by Steve Clack (Liquid Software Design )
- ;Slightly modified by Nils-Erik
- ;(make sure the 's' protect bit is set on this file!)
-
- FailAt 100
-
- ResolveDeviceName >ENV:DEV {Device}
- Echo >ENV:DEVO $DEV NOLINE
- Echo >>ENV:DEVO ":" NOLINE
-
- if {Opt} EQ 1
- Remrad {Device} force
- Endif
-
- Assign {Device} DISMOUNT
- Assign $DEVO DISMOUNT
-
- Delete >nil: ENV:DEV
- Delete >nil: ENV:DEVO
-
-